Imports CapaDeNegocios
Partial Public Class FrmCalificacionesABM
    Inherits System.Web.UI.Page
    Dim Ente As nTblEnteC = New CapaDeNegocios.nTblEnteC()
    Dim Provincia As nProvincia = New CapaDeNegocios.nProvincia()
    Dim Localidad As nLocalidad = New CapaDeNegocios.nLocalidad()
    Dim Calificaciones As nTblCalificaciones = New CapaDeNegocios.nTblCalificaciones()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Llenar_Grid()
            LlenarComboProvincia()
            LlenarComboEnte()
        End If
    End Sub
    Sub Llenar_Grid()
        GridCalificaciones.DataSource = Calificaciones.Buscar("", "", "", "", "", "", "")
        GridCalificaciones.DataBind()
        LimpiarCampos()
    End Sub
    Sub LimpiarCampos()
        LblError.Text = ""
        HFCodigoCalificacion.Value = ""
        TxtNombre.Text = ""
        TxtIdentificacion.Text = ""
        TxtObservacion.Text = ""
        '        TxtFechaAlta.Text = ""
        BDPFechaAlta.Enabled = True
        BDPFechaAlta.SelectedValue = ""
        BDPFechaAlta.MinimumDate = "01/01/1900"
        BDPFechaAlta.MaximumDate = Now.Date.ToShortDateString()


        'ValidarFechaAlta.MinimumValue = "01/01/2000"
        'ValidarFechaAlta.MaximumValue = Now.Date.ToShortDateString()

        'ValidarFechaVencimiento.MinimumValue = Now.Date.ToShortDateString()
        'ValidarFechaVencimiento.MaximumValue = (Now.Date.AddDays(365)).ToShortDateString()

        GridCalificaciones.SelectedIndex = -1
    End Sub
    Sub LlenarComboProvincia()
        cboProvincia.Items.Clear()
        cboProvincia.Items.Add(New ListItem("Ninguno...", -1))

        cboProvincia.DataSource = Provincia.Listar(0, "", "")
        cboProvincia.DataTextField = "Nombre"
        cboProvincia.DataValueField = "CodigoProv"
        cboProvincia.DataBind()
        If cboProvincia.Items.Count > 1 Then
            cboProvincia.SelectedIndex = 1
            LlenarComboLocalidad(1)
        End If
    End Sub
    Sub LlenarComboLocalidad(ByVal prov As Integer)
        cboLocalidad.Items.Clear()
        cboLocalidad.Items.Add(New ListItem("Ninguno...", -1))
        If prov <> -1 Then
            cboLocalidad.DataSource = Localidad.Listar("", 0, prov)
            cboLocalidad.DataTextField = "Nombre"
            cboLocalidad.DataValueField = "CodigoLocalidad"
            cboLocalidad.DataBind()
            If cboLocalidad.Items.Count > 1 Then
                cboLocalidad.SelectedIndex = 1
            End If
        End If

    End Sub
    Sub LlenarComboEnte()
        CboEnte.Items.Clear()
        CboEnte.Items.Add(New ListItem("Ninguno...", -1))
        CboEnte.DataSource = Ente.Buscar("", "", "", "", "", "", "")
        CboEnte.DataTextField = "RazonSocial"
        CboEnte.DataValueField = "CodigoEnte"
        CboEnte.DataBind()
        If CboEnte.SelectedIndex > -1 Then
            CboEnte.SelectedIndex = 1
        End If
    End Sub

    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        Llenar_Grid()
    End Sub

    Protected Sub GridCalificaciones_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridCalificaciones.RowCommand
        If e.CommandName = "Select" Then
            HFCodigoCalificacion.Value = e.CommandSource.Parent.FindControl("HFID").value
            TxtNombre.Text = e.CommandSource.Parent.Parent.FindControl("LblNombre").text
            TxtIdentificacion.Text = e.CommandSource.Parent.Parent.FindControl("LblIdentificacion").text
            TxtObservacion.Text = e.CommandSource.Parent.Parent.FindControl("HFObservacion").Value
            BDPFechaAlta.SelectedValue = e.CommandSource.Parent.Parent.FindControl("LblFechaAlta").text
            cboProvincia.SelectedValue = Localidad.ProvinciaXLocalidad(e.CommandSource.Parent.Parent.FindControl("HFLocalidad").value)
            cboLocalidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFLocalidad").value
            CboEnte.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFEnte").value


            BDPFechaAlta.MinimumDate = BDPFechaAlta.SelectedValue
            BDPFechaAlta.MaximumDate = BDPFechaAlta.SelectedValue

            '            ValidarFechaAlta.MinimumValue = TxtFechaAlta.Text
            '            ValidarFechaAlta.MaximumValue = TxtFechaAlta.Text
        End If
    End Sub

    Protected Sub cboProvincia_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboProvincia.SelectedIndexChanged
        LlenarComboLocalidad(cboProvincia.SelectedValue)
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click
        If CboEnte.SelectedValue <> -1 And cboLocalidad.SelectedValue <> -1 And cboProvincia.SelectedValue <> -1 Then
            If HFCodigoCalificacion.Value = "" Then
                If (Not Calificaciones.Insertar(cboLocalidad.SelectedValue.ToString(), TxtNombre.Text, TxtIdentificacion.Text, TxtObservacion.Text, CboEnte.SelectedValue.ToString())) Then
                    Llenar_Grid()
                    LblError.Text = "Error en insercion. Verifique los datos"
                Else
                    Llenar_Grid()
                End If
            Else
                If (Not Calificaciones.Modificar(HFCodigoCalificacion.Value.ToString(), cboLocalidad.SelectedValue.ToString(), TxtNombre.Text, TxtIdentificacion.Text, BDPFechaAlta.Text, TxtObservacion.Text, CboEnte.SelectedValue.ToString())) Then
                    Llenar_Grid()
                    LblError.Text = "Error en la Actualizacion. Verifique los datos"
                Else
                    Llenar_Grid()
                End If
            End If
        Else
            LblError.Text = "Error. El ente, provincia y localildad no pueden ser nulos."
        End If

    End Sub

    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkEliminar.Click
        If HFCodigoCalificacion.Value <> "" Then
            Calificaciones.Eliminar(HFCodigoCalificacion.Value)
            Llenar_Grid()

        End If
    End Sub

    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkBuscar.Click
        GridCalificaciones.DataSource = Calificaciones.Buscar("", cboLocalidad.SelectedValue.ToString(), TxtNombre.Text, TxtIdentificacion.Text, BDPFechaAlta.Text, TxtObservacion.Text, CboEnte.SelectedValue.ToString())
        GridCalificaciones.DataBind()
        LimpiarCampos()
    End Sub

    Protected Sub LnkObservacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim s As LinkButton = sender
        If s.Text = "Observaciones" Then
            s.Text = sender.parent.FindControl("HFObservacion").value.ToString()
            '(s.Parent.Parent.FindControl("HFObservacion")).ToString()

        Else
            s.Text = "Observaciones"
        End If

    End Sub

    Protected Sub HFCodigoCalificacion_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HFCodigoCalificacion.ValueChanged

    End Sub
End Class